home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
GETBPB.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
2KB
|
54 lines
program GetBPBsample;
uses crt, DMT;
var
BPBbuffer : DevParamsStruct; { The DevParamsStruct data type is defined in the DMT unit }
DrvLetter : char;
begin
Color( 7, 0 );
clrscr;
writeln;
write( 'Select drive to check ( A-Z ) [ :]');
gotoxy( wherex - 3, wherey );
DrvLetter := upcase( readkey );
writeln( DrvLetter );
GetBPB( DrvLetter, BPBbuffer ); { Call GetBPB procedure }
if ( ErrFlag ) then
begin
writeln( #7 );
writeln( ShowError( GetErrCode ) );
end
else
with BPBbuffer do
begin
clrscr;
writeln( ' BIOS Parameter Block (BPB) Layout' );
writeln;
writeln( 'Drive specified : ', DrvLetter );
writeln( 'Sector size in bytes : ', BytesPerSect );
writeln( 'Sectors per cluster : ', SectsPerClust );
writeln( 'Number of boot sectors : ', BootSects );
writeln( 'Number of FATs : ', NumOfFATs );
writeln( 'Maximum root-directory entries : ', MaxRootEntries );
write ( 'Number of sectors on disk : ' );
if ( NumOfSects = 0 ) then
writeln( InsComma( BigSects ) )
else
writeln( InsComma( NumOfSects ) );
writeln( 'Media descriptor code : ', WrdToHex( MediaCode ), ' hex' );
writeln( 'Sectors occupied by each Fat : ', SectsPerFAT );
writeln( 'Sectors per track : ', SectsPerTrack );
writeln( 'Number of heads (sides) : ', NumOfHeads );
writeln( 'Number of hidden sectors : ', HiddenSects );
end;
GetEnter;
end.